Objective: To provide information of the occupation counts in each year in a table, and in several graphs (top 10, bottom 10, all ordered by size, all ordered by label)

It is noted that there appears to be a large disparity in the labelling between 1850 and 1880 with 1910. This was largely due to different occ codes used by IPUMS between the two time periods. 

The graphs shown are counted by `label` and not `occstr`. `occstr` provides a more consistent coding across the three time periods, but was not done as there are as many as 60 000 unique `occstr` in 1910. Further data cleaning would have to be done if `occstr` is to be graphed in full.

It is recommended that the next steps to unify the coding of `label` or `occstr` throughout the three time periods so that they can be compared against one another.

1. Set Up

README

In general, the data sets are relatively large, and take up a large amount of memory after loading. It is recommended that after loading, that the data sets be subsetted or summarised, and unused data frames to be removed.

The code is shown in the next three tabs to show any changes that may have been made. In general, no columns or rows are removed. Filtering occured in the next step.


Loading 1850

library(dplyr)
library(ggplot2)
library(treemap)
library(extrafont)
library(stringr)
loadfonts()
library(knitr)
library(kableExtra)
library(tidyr)

# Loading
mn_1850 = readr::read_csv("../Data/census_1850_occ_mn.csv") %>% mutate(city = "Manhattan")
bk_1850 = readr::read_csv("../Data/census_1850_occ_bk.csv") %>% mutate(city = "Brooklyn")
OCC_1880 = readr::read_csv("../Data/OCC1880.csv")

# Combining Data
combined_1850 = rbind(mn_1850, bk_1850) %>% 
  select(age, sex, marst, race, labforce,
         occ, city, everything()) %>%
  left_join(OCC_1880, by = c("occ" = "code")) %>%
  mutate(race = factor(race,
                       levels = c(100,120,200,210,300),
                       labels = c("White", "Black (white)",
                                  "Black / African American",
                                  "Mulatto", "American Indian")),
         labforce = factor(labforce,
                           levels = c(0,1,2),
                           labels = c("N/A",
                                      "No, not in the labor force",
                                      "Yes, in the labor force")),
         sex = factor(sex,
                      levels = c(1,2),
                      labels = c("Male", "Female")),
         marst = factor(marst,
                        levels = c(1:6),
                        labels = c("Married, spouse present",
                                   "Married, spouse absent",
                                   "Separated",
                                   "Divorced",
                                   "Widowed",
                                   "Never married/single")))

# Theme setting for visualisations
theme_set(theme_minimal() + 
            theme(panel.grid.minor = element_blank(),
                  text = element_text(family = "Arial",
                                      colour = "black")))
col_sex = c("#e21737", "#0b648f")
col_miss = c("#86b817", "#e53238")

# Saving Memory
rm(OCC_1880)
rm(bk_1850)
rm(mn_1850)


Loading 1880

# Loading
mn_1880 = readr::read_csv("../Data/census_1880_occ_mn.csv") %>% mutate(city = "Manhattan")
bk_1880 = readr::read_csv("../Data/census_1880_occ_bk.csv") %>% mutate(city = "Brooklyn")
OCC_1880 = readr::read_csv("../Data/OCC1880.csv")

# Combining Data
combined_1880 = rbind(mn_1880, bk_1880) %>% 
  select(age, sex, race, labforce,
         occ, city, everything()) %>%
  left_join(OCC_1880, by = c("occ" = "code")) %>%
  mutate(age = ifelse(age == "Less than 1 year old",
                      0,
                      age),
         age = as.numeric(age))

rm(OCC_1880)
rm(bk_1880)
rm(mn_1880)


Loading 1910

# Loading
mn_1910 = readr::read_csv("../Data/census_1910_occ_mn.csv") %>% mutate(city = "Manhattan")
bk_1910 = readr::read_csv("../Data/census_1910_occ_bk.csv") %>% mutate(city = "Brooklyn")
OCC_1950 = readr::read_csv("../Data/OCC1950.csv")

# Combining Data
combined_1910 = rbind(mn_1910, bk_1910) %>%
  left_join(OCC_1950, by = c("occ1950" = "code")) %>%
  mutate(sex = factor(sex,
                      levels = c(1,2),
                      labels = c("Male", "Female")),
         labor_force = factor(labor_force,
                              levels = c(0,1,2),
                              labels = c("N/A", 
                                         "No, not in the labor force",
                                         "Yes, in the labor force")))

rm(OCC_1950)
rm(mn_1910)
rm(bk_1910)


2. Occupations in Each Year

README

The following the three tabs are organised, with one for each year. Within each tab, there are five sub-tabs, a scrollable table with the counts of each occupation, two graph of the top and bottom 10 occupations, and two graphs of all occupations by count size and label order.

It is noted that the graphs are all produced using label as the variable, not occstr.

1850

Top Jobs
combined_1850 %>%
  filter(labforce == "Yes, in the labor force") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1850$labforce == "Yes, in the labor force") * 100,
                         digits = 2),
         perc_pop = round(n / NROW(combined_1850) * 100, 
                          digits = 2)) %>%
  arrange(desc(n)) %>%
  kable(col.names = c("Occupation",
                      "Count",
                      "Percentage of labour force",
                      "Percentage of population")) %>%
  kable_styling() %>%
  scroll_box(width = "100%", height = "300px")
Occupation Count Percentage of labour force Percentage of population
Laborers (not specified) 24730 13.37 3.78
Clerks in stores 14087 7.61 2.15
Sailors 8513 4.60 1.30
Carpenters and joiners 8390 4.53 1.28
Tailors and tailoresses 8244 4.46 1.26
Boot and shoemakers 7616 4.12 1.16
Traders and dealers (not specified) 7572 4.09 1.16
Draymen, hackmen, teamsters, etc. 6689 3.62 1.02
Masons (brick and stone) 3841 2.08 0.59
Traders and dealers in groceries 3768 2.04 0.58
Painters and varnishers 3381 1.83 0.52
Ship carpenters, caulkers, riggers, and smiths 3339 1.80 0.51
Cabinet makers 3300 1.78 0.50
Blacksmiths 3184 1.72 0.49
Bakers 2807 1.52 0.43
Porters and laborers in stores warehouses 2450 1.32 0.37
Machinists 2395 1.29 0.37
Printers, lithographers, and stereotypers 2374 1.28 0.36
Butchers 2331 1.26 0.36
Employees of hotels and restaurants (not clerks) 2295 1.24 0.35
Marble and stone cutters 1883 1.02 0.29
Gold and silver workers and jewelers 1854 1.00 0.28
Hucksters and peddlers 1703 0.92 0.26
Hat and cap makers 1469 0.79 0.22
Coopers 1337 0.72 0.20
Physicians and surgeons 1315 0.71 0.20
Saloon keepers and bartenders 1303 0.70 0.20
Lawyers 1287 0.70 0.20
Employees of government (not clerks) 1258 0.68 0.19
Tinners and tinware makers 1200 0.65 0.18
Cigar makers 1190 0.64 0.18
Iron and steel works and shops operatives 1165 0.63 0.18
Engineers and firemen 1097 0.59 0.17
Bookkeepers and accountants in stores 1047 0.57 0.16
Traders and dealers in produce and provisions 1041 0.56 0.16
Boatmen and watermen 985 0.53 0.15
Wood turners, carvers, and woodenware makers 982 0.53 0.15
Soldiers, sailors, and Marines (Army Navy) 910 0.49 0.14
Bookbinders and finishers 900 0.49 0.14
Barbers and hairdressers 884 0.48 0.14
Manufacturers 884 0.48 0.14
Musicians (professional) and teachers music 856 0.46 0.13
Farmers and planters 835 0.45 0.13
Gardeners, nurserymen, and vine-growers 769 0.42 0.12
Traders and dealers in dry foods, fancy foods, and notions 731 0.40 0.11
Plumbers and gasfitters 727 0.39 0.11
Cotton-mill operatives 723 0.39 0.11
Bankers and brokers 695 0.38 0.11
Builders and contractors (not specified) 663 0.36 0.10
Agents (not specified) 651 0.35 0.10
Harness and saddle makers 638 0.34 0.10
Hotel keepers 631 0.34 0.10
Teachers and scientific persons 624 0.34 0.10
Carriage and wagon makers 621 0.34 0.09
Gun- and lock-smiths 618 0.33 0.09
Steam boiler makers 617 0.33 0.09
Domestic servants 609 0.33 0.09
Pianoforte makers and tuners 593 0.32 0.09
Traders and dealers in drugs and medicines 593 0.32 0.09
Milkmen and milkwomen 571 0.31 0.09
Brass founders and workers 569 0.31 0.09
Clergy 568 0.31 0.09
Others in manufacturing, mechanical, and mining industries 562 0.30 0.09
Blind, door and sash makers 555 0.30 0.08
Leather curriers, dressers, finishers, and tanners 552 0.30 0.08
Rope and cordage makers 539 0.29 0.08
Clock and watchmakers and repairers 529 0.29 0.08
Traders and dealers in liquors and wines 496 0.27 0.08
Employees in manufacturing estabs. (not specified) 493 0.27 0.08
Wheelwrights 490 0.26 0.07
Glass-works operatives 487 0.26 0.07
Artists and teachers of art 478 0.26 0.07
Upholsterers 456 0.25 0.07
Agricultural laborers 452 0.24 0.07
Sail and awning makers 447 0.24 0.07
Engravers 445 0.24 0.07
Plasterers 433 0.23 0.07
Sawyers 431 0.23 0.07
Confectioners 428 0.23 0.07
Tool and cutlery makers 373 0.20 0.06
Traders and dealers in clothing and men’s furnishing goods 368 0.20 0.06
Fishermen and oystermen 365 0.20 0.06
Traders and dealers in cigars and tobacco 340 0.18 0.05
Officials of government 324 0.18 0.05
Gentleman 305 0.16 0.05
Sugar makers and refiners 298 0.16 0.05
Boarding- and lodging-house keepers 290 0.16 0.04
Restaurant keepers 289 0.16 0.04
Copper workers 285 0.15 0.04
Salesmen and saleswomen 284 0.15 0.04
Brewers and maltsters 283 0.15 0.04
Traders and dealers in coal and wood 277 0.15 0.04
Gilders 274 0.15 0.04
Hostlers 261 0.14 0.04
Box factory operatives 245 0.13 0.04
Pilots 244 0.13 0.04
Fur workers 238 0.13 0.04
Traders and dealers in iron, tin, and copperware 234 0.13 0.04
Broom and brush makers 231 0.12 0.04
Boat makers 224 0.12 0.03
Traders and dealers in boots and shoes 222 0.12 0.03
Candle, soap, and tallow makers 204 0.11 0.03
Officials and employees of trade and transportation companies (not specified) 204 0.11 0.03
Trunk, valise, and carpet-bag makers 202 0.11 0.03
Weighers, gaugers, and measurers 201 0.11 0.03
Livery-stable keepers 199 0.11 0.03
Umbrella and parasol makers 199 0.11 0.03
Dentists 198 0.11 0.03
Stewards and stewardesses 190 0.10 0.03
Bleachers, dyers and scourers 189 0.10 0.03
Traders and dealers in books stationary 186 0.10 0.03
Traders and dealers in junk 181 0.10 0.03
Journalists 165 0.09 0.03
Basket makers 155 0.08 0.02
Distillers and rectifiers 152 0.08 0.02
Whitewashers 144 0.08 0.02
Traders and dealers in lumber 142 0.08 0.02
Watchmen (private) and detectives 139 0.08 0.02
Auctioneers 138 0.07 0.02
Millers 138 0.07 0.02
Pattern makers 138 0.07 0.02
Carpet makers 132 0.07 0.02
Actors 131 0.07 0.02
Architects 131 0.07 0.02
Paper mill operatives 130 0.07 0.02
Traders and dealers in crockery, china, glass, and stoneware 130 0.07 0.02
Mirror and picture frame makers 126 0.07 0.02
Stove, furnace, and grate makers 126 0.07 0.02
Chemical-works employees 119 0.06 0.02
Bottlers and mineral-water makers 113 0.06 0.02
Brokers (commercial) 113 0.06 0.02
Newspaper criers and carriers 110 0.06 0.02
Undertakers 108 0.06 0.02
Apprentices to trades 107 0.06 0.02
Employees of railroad companies 107 0.06 0.02
Traders and dealers in leather, hides, and skins 107 0.06 0.02
Others in trade and transportation 106 0.06 0.02
Quarrymen 102 0.06 0.02
Leather case and pocket-book makers 98 0.05 0.01
Traders and dealers in cabinet ware 96 0.05 0.01
Engineers (civil) 95 0.05 0.01
Collectors and claim agents 92 0.05 0.01
Wire makers and workers 92 0.05 0.01
Sexton 89 0.05 0.01
Publishers of books, maps, and newspapers 88 0.05 0.01
Officials and employees of companies (not clerks) 86 0.05 0.01
Roofers and slaters 86 0.05 0.01
Packers 84 0.05 0.01
Chemists, assayers, and metallurgists 82 0.04 0.01
Lumbermen and raftsmen 82 0.04 0.01
Paperhangers 82 0.04 0.01
Traders and dealers in real estate 81 0.04 0.01
Mill and factory operatives (not specified) 80 0.04 0.01
Nail makers 80 0.04 0.01
Officers of the Army and Navy 79 0.04 0.01
Scale and rule makers 76 0.04 0.01
Traders and dealers in ice 71 0.04 0.01
Pump makers 70 0.04 0.01
Clerks in government offices 68 0.04 0.01
Rag pickers 67 0.04 0.01
Britannia and japanned ware makers 64 0.03 0.01
Potters 64 0.03 0.01
Steamboat men and women 61 0.03 0.01
Button-factory operatives 60 0.03 0.01
Saw and planing mill operatives 60 0.03 0.01
Galloon, gimp, and tassel makers 59 0.03 0.01
Organ makers 58 0.03 0.01
Stock-drovers 58 0.03 0.01
Traders and dealers in livestock 56 0.03 0.01
Photographers 55 0.03 0.01
Traders and dealers in oils, paints, and turpentine 55 0.03 0.01
Clerks and bookkeepers in banks 54 0.03 0.01
Mechanics (not specified) 53 0.03 0.01
Others in professional and services 53 0.03 0.01
Employees of insurance companies (clerks) 52 0.03 0.01
Miners 51 0.03 0.01
Charcoal and lime burners 50 0.03 0.01
Florists 48 0.03 0.01
Traders and dealers in music and musical instruments 44 0.02 0.01
Brick and tile makers 42 0.02 0.01
Janitors 42 0.02 0.01
Officials of banks 41 0.02 0.01
Artificial-flower makers 40 0.02 0.01
Traders and dealers in hats, caps, and furs 38 0.02 0.01
Employees of banks (not clerks) 37 0.02 0.01
Authors, lecturers, and literary persons 34 0.02 0.01
Bone and ivory workers 34 0.02 0.01
Hair cleaners, dressers, and workers 34 0.02 0.01
Rubber factory operatives 32 0.02 0.00
Launderers and laundresses 31 0.02 0.00
Shippers and freighters 31 0.02 0.00
Traders and dealers in paper and paper stock 31 0.02 0.00
Clerks and copyists 30 0.02 0.00
Designers, draughtsmen, and inventors 30 0.02 0.00
Traders and dealers in marble, stone and slate 30 0.02 0.00
Traders and dealers in cotton and wool 29 0.02 0.00
Showmen and employees of shows 28 0.02 0.00
Officials and employees of telegraph companies 27 0.01 0.00
Officials of insurance companies 27 0.01 0.00
Billiard- and bowling saloon keepers and employees 25 0.01 0.00
Clerks and bookkeepers in offices 24 0.01 0.00
Gas-works employees 24 0.01 0.00
Milliners, dressmakers, and seamstresses 24 0.01 0.00
Officials, industry not specified 23 0.01 0.00
Woolen mill operatives 23 0.01 0.00
Veterinary surgeons 22 0.01 0.00
Hosiery and knitting mill operatives 21 0.01 0.00
Meat packers, curers, and picklers 21 0.01 0.00
Stock-raisers 21 0.01 0.00
Messengers 20 0.01 0.00
Flax dressers 17 0.01 0.00
Straw workers 17 0.01 0.00
Officials of manufacturing and mining companies 16 0.01 0.00
Traders and dealers in gold and silverware and jewelry 16 0.01 0.00
Employees in warehouses 15 0.01 0.00
Meat and fruit preserving establishment employees 15 0.01 0.00
File makers, cutters, and grinders 14 0.01 0.00
Glove makers 14 0.01 0.00
Nurses 14 0.01 0.00
Shingle and lath makers 14 0.01 0.00
Salt makers 13 0.01 0.00
Silk mill operatives 13 0.01 0.00
Starch makers 13 0.01 0.00
Bridge builders and contractors 11 0.01 0.00
Lace makers 11 0.01 0.00
Agricultural implement makers 10 0.01 0.00
Commercial travelers 9 0.00 0.00
Employees of charitable institutions 9 0.00 0.00
Lead and zinc works operatives 9 0.00 0.00
Officials of railroad companies 8 0.00 0.00
Print-works operatives 8 0.00 0.00
Clerks and bookkeepers in manufacturing estabs. 7 0.00 0.00
Shirt, cuff, and collar makers 7 0.00 0.00
Dairymen and dairywomen 6 0.00 0.00
Others in agriculture 6 0.00 0.00
Toll-gate and bridge keepers 6 0.00 0.00
Car makers 5 0.00 0.00
Screw makers 5 0.00 0.00
Officials and employees of street companies 4 0.00 0.00
Railroad builders and contractors 4 0.00 0.00
Tobacco factory operatives 4 0.00 0.00
Clerks and bookkeepers in companies 3 0.00 0.00
Clerks and bookkeepers in railroad offices 3 0.00 0.00
Corset makers 3 0.00 0.00
Oil mill and refinery operatives 3 0.00 0.00
Wood choppers 3 0.00 0.00
Blank 2 0.00 0.00
Traders and dealers in agricultural implements 2 0.00 0.00
Turpentine farmers and laborers 2 0.00 0.00
Bag makers 1 0.00 0.00
Clerks in hotels and restaurants 1 0.00 0.00
Hunters, trappers, guides, and scouts 1 0.00 0.00
Other non-occupational response 1 0.00 0.00
Thread makers 1 0.00 0.00
  • Laborers appear to be the most popular occupation, followed by Clerks in Stores and Sailors.


Graph of Top 10 Occupations
combined_1850 %>%
  filter(labforce == "Yes, in the labor force") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1850$labforce == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)")) %>%
  top_n(10, wt = n) %>%
  
  ggplot(aes(y = n, x = reorder(label, n))) +
  geom_col(fill = "#f9a541") + 
  coord_flip() + 
  geom_text(aes(label = text),
            hjust = 0,
            family = "Quicksand") + 
  scale_y_continuous(breaks = seq(0, 25000, 5000),
                     expand = expand_scale(mult = c(0,0.2))) +
  
  labs(x = "Occupation (Percentage of labour force)", y = "Count",
       title = "Graph of the Top 10 Most Popular Occupations in 1850") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"


Graph of Bottom 10 Occupations
combined_1850 %>%
  filter(labforce == "Yes, in the labor force") %>%
  count(label) %>%
  top_n(-10, wt = n) %>%
  
  ggplot(aes(y = n, x = reorder(label, n))) +
  geom_col(fill = "#f9a541") + 
  coord_flip() + 
  geom_text(aes(label = n),
            hjust = 0,
            family = "Quicksand") + 
  scale_y_continuous(breaks = seq(0, 3, 1),
                     expand = expand_scale(mult = c(0,0.1))) +
  
  labs(x = "Occupation", y = "Count",
       title = "Graph of the Top 10 Least Popular Occupations in 1850") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

  • Percentages are not included as the values are too small


Graph of All Occupations by Count
combined_1850 %>%
  filter(labforce == "Yes, in the labor force") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1850$labforce == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)")) %>%
  
  ggplot(aes(y = n, x = reorder(label, n))) +
  geom_col(fill = "#f9a541") + 
  coord_flip() + 
  geom_text(aes(label = text),
            hjust = 0,
            family = "Arial") + 
  scale_y_continuous(breaks = seq(0, 25000, 5000),
                     expand = expand_scale(mult = c(0,0.2))) +
  
  labs(x = "Occupation", y = "Count",
       title = "Graph of All Occupations by Count in 1850") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))


Graph of All Occupations by Count (Breaks)
plot1 <- combined_1850 %>%
  filter(labforce == "Yes, in the labor force") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1850$labforce == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)")) %>%
 
  ggplot(aes(y = n, x = reorder(label, n))) +
  geom_col(fill = "#f9a541") + 
  coord_flip() + 
  geom_text(aes(label = text),
            hjust = 0,
            family = "Arial") + 
  scale_y_continuous(breaks = seq(0, 25000, 5000),
                     expand = expand_scale(mult = c(0,0.2))) +
  
  labs(x = "Occupation", y = "Count",
       title = "Graph of All Occupations by Count in 1850") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))

occ_1850_normalized <- combined_1850 %>%
  filter(labforce == "Yes, in the labor force") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1850$labforce == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)"))

classInt::classIntervals(occ_1850_normalized$perc_lf, 6)
## style: quantile
##   one of 16,108,764 possible partitions of this variable into 6 classes
##      [0,0.01)   [0.01,0.03)   [0.03,0.07)   [0.07,0.16)  [0.16,0.445) 
##            28            48            50            40            45 
## [0.445,13.37] 
##            43
classInt::classIntervals(occ_1850_normalized$perc_lf, n = 10, style = "jenks")
## style: jenks
##   one of 110,524,147,514 possible partitions of this variable into 10 classes
##     [0,0.09]  (0.09,0.25]  (0.25,0.49]  (0.49,0.92]  (0.92,1.52]  (1.52,2.08] 
##          142           40           35           15            8            6 
##  (2.08,4.12]   (4.12,4.6]   (4.6,7.61] (7.61,13.37] 
##            3            3            1            1
classInt::classIntervals(occ_1850_normalized$n, n = 10, style = "jenks")
## style: jenks
##       [1,165]     (165,456]     (456,910]    (910,1703]   (1703,2807] 
##           142            40            35            15             8 
##   (2807,3841]   (3841,7616]   (7616,8513]  (8513,14087] (14087,24730] 
##             6             3             3             1             1
classInt::classIntervals(occ_1850_normalized$n, 5)
## style: quantile
##      [1,23.6)   [23.6,80.2)    [80.2,204)   [204,633.8) [633.8,24730] 
##            51            51            49            52            51
quantile(occ_1850_normalized$perc_lf)
##    0%   25%   50%   75%  100% 
##  0.00  0.02  0.07  0.30 13.37
plot1 + 
      geom_vline(aes(xintercept = 142.5), color = "red",
            linetype = "dashed", size = 0.5)+ 
      geom_vline(aes(xintercept = 182.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 217.5), color = "red",
            linetype = "dashed", size = 0.5)+ 
      geom_vline(aes(xintercept = 232.5), color = "red",
            linetype = "dashed", size = 0.5)+ 
      geom_vline(aes(xintercept = 240.5), color = "red",
            linetype = "dashed", size = 0.5)+ 
      geom_vline(aes(xintercept = 246.5), color = "red",
            linetype = "dashed", size = 0.5)+ 
      geom_vline(aes(xintercept = 249.5), color = "red",
            linetype = "dashed", size = 0.5)+ 
      geom_vline(aes(xintercept = 252.5), color = "red",
            linetype = "dashed", size = 0.5)+ 
      geom_vline(aes(xintercept = 253.5), color = "red",
            linetype = "dashed", size = 0.5)


Graph of All Occupations by Type
combined_1850 %>%
  filter(labforce == "Yes, in the labor force") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1850$labforce == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)")) %>%
  
  ggplot(aes(y = n, x = label, n)) +
  geom_col(fill = "#f9a541") + 
  coord_flip() + 
  geom_text(aes(label = text),
            hjust = 0,
            family = "Arial") + 
  scale_y_continuous(breaks = seq(0, 25000, 5000),
                     expand = expand_scale(mult = c(0,0.2))) +
  
  labs(x = "", y = "Count",
       title = "Graph of All Occupations by Type in 1850") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))


1880

Top Jobs
combined_1880 %>%
  filter(labforce == "Yes, in the labor force" & 
           label != "Blank") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1880$labforce == "Yes, in the labor force") * 100,
                         digits = 2),
         perc_pop = round(n / NROW(combined_1880) * 100, 
                          digits = 2)) %>%
  arrange(desc(n)) %>%
  kable(col.names = c("Occupation",
                      "Count",
                      "Percentage of labour force",
                      "Percentage of population")) %>%
  kable_styling() %>%
  scroll_box(width = "100%", height = "300px")
Occupation Count Percentage of labour force Percentage of population
Domestic servants 66273 9.39 3.67
Laborers (not specified) 50757 7.19 2.81
Clerks in stores 38060 5.39 2.11
Milliners, dressmakers, and seamstresses 28317 4.01 1.57
Tailors and tailoresses 26399 3.74 1.46
Draymen, hackmen, teamsters, etc. 18628 2.64 1.03
Carpenters and joiners 15074 2.14 0.83
Launderers and laundresses 11590 1.64 0.64
Cigar makers 11440 1.62 0.63
Porters and laborers in stores warehouses 11390 1.61 0.63
Boot and shoemakers 11045 1.57 0.61
Painters and varnishers 10943 1.55 0.61
Printers, lithographers, and stereotypers 10403 1.47 0.58
Butchers 9273 1.31 0.51
Employees of hotels and restaurants (not clerks) 9242 1.31 0.51
Saloon keepers and bartenders 8483 1.20 0.47
Bookkeepers and accountants in stores 7938 1.12 0.44
Traders and dealers in groceries 7258 1.03 0.40
Salesmen and saleswomen 6966 0.99 0.39
Bakers 6873 0.97 0.38
Machinists 6831 0.97 0.38
Teachers and scientific persons 5987 0.85 0.33
Masons (brick and stone) 5767 0.82 0.32
Hucksters and peddlers 5755 0.82 0.32
Engineers and firemen 5727 0.81 0.32
Traders and dealers in produce and provisions 5259 0.75 0.29
Blacksmiths 5226 0.74 0.29
Traders and dealers (not specified) 5141 0.73 0.28
Sailors 4710 0.67 0.26
Cabinet makers 4609 0.65 0.26
Barbers and hairdressers 4597 0.65 0.25
Plumbers and gasfitters 4593 0.65 0.25
Employees of government (not clerks) 4275 0.61 0.24
Lawyers 4259 0.60 0.24
Bookbinders and finishers 4158 0.59 0.23
Musicians (professional) and teachers music 3980 0.56 0.22
Traders and dealers in liquors and wines 3944 0.56 0.22
Clerks and copyists 3763 0.53 0.21
Tinners and tinware makers 3555 0.50 0.20
Marble and stone cutters 3491 0.49 0.19
Iron and steel works and shops operatives 3463 0.49 0.19
Physicians and surgeons 3291 0.47 0.18
Coopers 3283 0.47 0.18
Hat and cap makers 3251 0.46 0.18
Apprentices to trades 3238 0.46 0.18
Employees of railroad companies 3188 0.45 0.18
Traders and dealers in dry foods, fancy foods, and notions 3135 0.44 0.17
Gold and silver workers and jewelers 3081 0.44 0.17
Box factory operatives 2903 0.41 0.16
Bankers and brokers 2900 0.41 0.16
Mill and factory operatives (not specified) 2776 0.39 0.15
Nurses 2567 0.36 0.14
Officials and employees of street companies 2548 0.36 0.14
Ship carpenters, caulkers, riggers, and smiths 2502 0.35 0.14
Confectioners 2228 0.32 0.12
Brewers and maltsters 2186 0.31 0.12
Pianoforte makers and tuners 2152 0.30 0.12
Hostlers 2150 0.30 0.12
Watchmen (private) and detectives 2081 0.29 0.12
Clergy 2075 0.29 0.11
Officials and employees of companies (not clerks) 2038 0.29 0.11
Artificial-flower makers 2018 0.29 0.11
Shirt, cuff, and collar makers 2003 0.28 0.11
Glass-works operatives 1905 0.27 0.11
Traders and dealers in cigars and tobacco 1893 0.27 0.10
Traders and dealers in real estate 1860 0.26 0.10
Upholsterers 1848 0.26 0.10
Builders and contractors (not specified) 1805 0.26 0.10
Brass founders and workers 1791 0.25 0.10
Carpet makers 1756 0.25 0.10
Clerks and bookkeepers in manufacturing estabs. 1702 0.24 0.09
Manufacturers 1688 0.24 0.09
Wood turners, carvers, and woodenware makers 1672 0.24 0.09
Plasterers 1595 0.23 0.09
Silk mill operatives 1577 0.22 0.09
Boarding- and lodging-house keepers 1565 0.22 0.09
Boatmen and watermen 1561 0.22 0.09
Clerks and bookkeepers in banks 1555 0.22 0.09
Others in manufacturing, mechanical, and mining industries 1511 0.21 0.08
Traders and dealers in drugs and medicines 1498 0.21 0.08
Carriage and wagon makers 1419 0.20 0.08
Janitors 1419 0.20 0.08
Officials and employees of telegraph companies 1404 0.20 0.08
Gardeners, nurserymen, and vine-growers 1388 0.20 0.08
Tobacco factory operatives 1364 0.19 0.08
Restaurant keepers 1242 0.18 0.07
Actors 1240 0.18 0.07
Clock and watchmakers and repairers 1236 0.18 0.07
Milkmen and milkwomen 1211 0.17 0.07
Agricultural laborers 1199 0.17 0.07
Artists and teachers of art 1177 0.17 0.07
Agents (not specified) 1173 0.17 0.06
Commercial travelers 1147 0.16 0.06
Employees in manufacturing estabs. (not specified) 1142 0.16 0.06
Engravers 1129 0.16 0.06
Steam boiler makers 1120 0.16 0.06
Messengers 1115 0.16 0.06
Traders and dealers in clothing and men’s furnishing goods 1110 0.16 0.06
Farmers and planters 1106 0.16 0.06
Hotel keepers 1103 0.16 0.06
Employees of insurance companies (clerks) 1079 0.15 0.06
Traders and dealers in junk 1066 0.15 0.06
Harness and saddle makers 1023 0.14 0.06
Sugar makers and refiners 1000 0.14 0.06
Journalists 963 0.14 0.05
Gun- and lock-smiths 934 0.13 0.05
Fur workers 930 0.13 0.05
Packers 896 0.13 0.05
Traders and dealers in iron, tin, and copperware 870 0.12 0.05
Paper mill operatives 862 0.12 0.05
Clerks and bookkeepers in railroad offices 845 0.12 0.05
Clerks in government offices 841 0.12 0.05
Brokers (commercial) 840 0.12 0.05
Cotton-mill operatives 840 0.12 0.05
Broom and brush makers 834 0.12 0.05
Lace makers 833 0.12 0.05
Sewing machine operators 818 0.12 0.05
Traders and dealers in boots and shoes 802 0.11 0.04
Leather curriers, dressers, finishers, and tanners 784 0.11 0.04
Soldiers, sailors, and Marines (Army Navy) 768 0.11 0.04
Traders and dealers in coal and wood 748 0.11 0.04
Officials of government 710 0.10 0.04
Photographers 690 0.10 0.04
Dentists 688 0.10 0.04
Traders and dealers in cabinet ware 677 0.10 0.04
Rope and cordage makers 652 0.09 0.04
Roofers and slaters 641 0.09 0.04
Traders and dealers in books stationary 639 0.09 0.04
Rag pickers 635 0.09 0.04
Mirror and picture frame makers 615 0.09 0.03
Fishermen and oystermen 607 0.09 0.03
Undertakers 599 0.08 0.03
Wheelwrights 597 0.08 0.03
Livery-stable keepers 595 0.08 0.03
Collectors and claim agents 594 0.08 0.03
Bleachers, dyers and scourers 590 0.08 0.03
Sail and awning makers 585 0.08 0.03
Clerks in hotels and restaurants 557 0.08 0.03
Umbrella and parasol makers 531 0.08 0.03
Traders and dealers in newspapers periodicals 528 0.07 0.03
Florists 523 0.07 0.03
Bottlers and mineral-water makers 518 0.07 0.03
Gilders 513 0.07 0.03
Gentleman 511 0.07 0.03
Weighers, gaugers, and measurers 495 0.07 0.03
Engineers (civil) 490 0.07 0.03
Paperhangers 481 0.07 0.03
Traders and dealers in ice 475 0.07 0.03
Tool and cutlery makers 457 0.06 0.03
Steamboat men and women 453 0.06 0.03
Pattern makers 447 0.06 0.02
Wire makers and workers 443 0.06 0.02
Clerks and bookkeepers in offices 439 0.06 0.02
Gas-works employees 436 0.06 0.02
Leather case and pocket-book makers 435 0.06 0.02
Saw and planing mill operatives 432 0.06 0.02
Architects 422 0.06 0.02
Traders and dealers in crockery, china, glass, and stoneware 416 0.06 0.02
Designers, draughtsmen, and inventors 415 0.06 0.02
Blind, door and sash makers 408 0.06 0.02
Galloon, gimp, and tassel makers 405 0.06 0.02
Stewards and stewardesses 390 0.06 0.02
Pilots 388 0.05 0.02
Bag makers 377 0.05 0.02
Traders and dealers in livestock 368 0.05 0.02
Basket makers 365 0.05 0.02
Officials and employees of trade and transportation companies (not specified) 357 0.05 0.02
Millers 356 0.05 0.02
Traders and dealers in paper and paper stock 354 0.05 0.02
Publishers of books, maps, and newspapers 346 0.05 0.02
Candle, soap, and tallow makers 342 0.05 0.02
Meat packers, curers, and picklers 332 0.05 0.02
Corset makers 329 0.05 0.02
Potters 329 0.05 0.02
Traders and dealers in oils, paints, and turpentine 312 0.04 0.02
Traders and dealers in hats, caps, and furs 299 0.04 0.02
Copper workers 295 0.04 0.02
Whitewashers 289 0.04 0.02
Traders and dealers in leather, hides, and skins 288 0.04 0.02
Traders and dealers in lumber 274 0.04 0.02
Button-factory operatives 264 0.04 0.01
Chemical-works employees 263 0.04 0.01
Chemists, assayers, and metallurgists 259 0.04 0.01
Sawyers 252 0.04 0.01
Midwives 244 0.03 0.01
Trunk, valise, and carpet-bag makers 222 0.03 0.01
Miners 219 0.03 0.01
Oil mill and refinery operatives 215 0.03 0.01
Auctioneers 209 0.03 0.01
Traders and dealers in gold and silverware and jewelry 207 0.03 0.01
Woolen mill operatives 192 0.03 0.01
Newspaper criers and carriers 190 0.03 0.01
Car makers 189 0.03 0.01
Boat makers 187 0.03 0.01
Hair cleaners, dressers, and workers 187 0.03 0.01
Sexton 187 0.03 0.01
Lead and zinc works operatives 181 0.03 0.01
Other non-occupational response 169 0.02 0.01
Authors, lecturers, and literary persons 161 0.02 0.01
Officials, industry not specified 156 0.02 0.01
Mechanics (not specified) 154 0.02 0.01
Showmen and employees of shows 154 0.02 0.01
Others in professional and services 147 0.02 0.01
Dairymen and dairywomen 143 0.02 0.01
Straw workers 142 0.02 0.01
Employees in warehouses 140 0.02 0.01
Traders and dealers in sewing machines 133 0.02 0.01
Flax dressers 131 0.02 0.01
Glove makers 129 0.02 0.01
Traders and dealers in cotton and wool 121 0.02 0.01
Rubber factory operatives 120 0.02 0.01
Brick and tile makers 119 0.02 0.01
Britannia and japanned ware makers 117 0.02 0.01
Fertilizer establishment operatives 115 0.02 0.01
Officials of banks 114 0.02 0.01
Bone and ivory workers 109 0.02 0.01
Shippers and freighters 106 0.02 0.01
Veterinary surgeons 105 0.01 0.01
Hosiery and knitting mill operatives 103 0.01 0.01
Organ makers 100 0.01 0.01
Lumbermen and raftsmen 98 0.01 0.01
Traders and dealers in music and musical instruments 97 0.01 0.01
File makers, cutters, and grinders 90 0.01 0.00
Meat and fruit preserving establishment employees 90 0.01 0.00
Stove, furnace, and grate makers 88 0.01 0.00
Stock-drovers 86 0.01 0.00
Clerks and bookkeepers in companies 83 0.01 0.00
Employees of banks (not clerks) 73 0.01 0.00
Officials and employees of telephone companies 73 0.01 0.00
Distillers and rectifiers 66 0.01 0.00
Quarrymen 59 0.01 0.00
Billiard- and bowling saloon keepers and employees 49 0.01 0.00
Print-works operatives 49 0.01 0.00
Officers of the Army and Navy 45 0.01 0.00
Toll-gate and bridge keepers 40 0.01 0.00
Railroad builders and contractors 39 0.01 0.00
Scale and rule makers 38 0.01 0.00
Nail makers 36 0.01 0.00
Bridge builders and contractors 33 0.00 0.00
Traders and dealers in marble, stone and slate 33 0.00 0.00
Screw makers 32 0.00 0.00
Officials of manufacturing and mining companies 26 0.00 0.00
Pump makers 26 0.00 0.00
Charcoal and lime burners 23 0.00 0.00
Wood choppers 23 0.00 0.00
Employees of charitable institutions 22 0.00 0.00
Officials of railroad companies 22 0.00 0.00
Sewing machine factory operatives 15 0.00 0.00
Stock-raisers 10 0.00 0.00
Cheese makers 7 0.00 0.00
Turpentine farmers and laborers 7 0.00 0.00
Canalmen 6 0.00 0.00
Officials of insurance companies 6 0.00 0.00
Starch makers 6 0.00 0.00
Thread makers 6 0.00 0.00
Oil well operatives and laborers 5 0.00 0.00
Farm and plantation overseers 4 0.00 0.00
Hunters, trappers, guides, and scouts 4 0.00 0.00
Stock-herders 4 0.00 0.00
Agricultural implement makers 3 0.00 0.00
Salt makers 2 0.00 0.00
Apiarists 1 0.00 0.00
Quartz and stamp-mill operatives 1 0.00 0.00
Shingle and lath makers 1 0.00 0.00
Stave, shook, and heading makers 1 0.00 0.00
Traders and dealers in agricultural implements 1 0.00 0.00
  • Domestic servants appear to be the most popular occupation, followed by Clerks in Stores and Sailors.


Graph of Top 10 Occupations
combined_1880 %>%
  filter(labforce == "Yes, in the labor force" & 
           label != "Blank") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1880$labforce == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)")) %>%
  top_n(10, wt = n) %>%
  
  ggplot(aes(y = n, x = reorder(label, n))) +
  geom_col(fill = "#bc5090") + 
  coord_flip() + 
  geom_text(aes(label = text),
            hjust = 0,
            family = "Quicksand") + 
  scale_y_continuous(breaks = seq(0, 70000, 10000),
                     expand = expand_scale(mult = c(0,0.2))) +
  
  labs(x = "Occupation (Percentage of labour force)", y = "Count",
       title = "Graph of the Top 10 Most Popular Occupations in 1880") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"


Graph of Bottom 10 Occupations
combined_1880 %>%
  filter(labforce == "Yes, in the labor force" & 
           label != "Blank") %>%
  count(label) %>%
  top_n(-10, wt = n) %>%
  
  ggplot(aes(y = n, x = reorder(label, n))) +
  geom_col(fill = "#bc5090") + 
  coord_flip() + 
  geom_text(aes(label = n),
            hjust = 0,
            family = "Quicksand") + 
  scale_y_continuous(breaks = seq(0, 4, 1),
                     expand = expand_scale(mult = c(0,0.1))) +
  
  labs(x = "Occupation", y = "Count",
       title = "Graph of the Top 10 Least Popular Occupations in 1880") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

  • Percentages are not included as the values are too small


Graph of All Occupations by Count
combined_1880 %>%
  filter(labforce == "Yes, in the labor force" & 
           label != "Blank") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1880$labforce == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)")) %>%
  
  ggplot(aes(y = n, x = reorder(label, n))) +
  geom_col(fill = "#bc5090") + 
  coord_flip() + 
  geom_text(aes(label = text),
            hjust = 0,
            family = "Arial") + 
  scale_y_continuous(breaks = seq(0, 70000, 10000),
                     expand = expand_scale(mult = c(0,0.2))) +
  
  labs(x = "", y = "Count",
       title = "Graph of All Occupations by Count in 1880") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))


Graph of All Occupations by Count (Breaks)
plot2 <- combined_1880 %>%
  filter(labforce == "Yes, in the labor force" & 
           label != "Blank") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1880$labforce == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)")) %>%
  
  ggplot(aes(y = n, x = reorder(label, n))) +
  geom_col(fill = "#bc5090") + 
  coord_flip() + 
  geom_text(aes(label = text),
            hjust = 0,
            family = "Arial") + 
  scale_y_continuous(breaks = seq(0, 70000, 10000),
                     expand = expand_scale(mult = c(0,0.2))) +
  
  labs(x = "", y = "Count",
       title = "Graph of All Occupations by Count in 1880") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))

occ_1880_normalized <- combined_1880 %>%
  filter(labforce == "Yes, in the labor force" & 
           label != "Blank") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1880$labforce == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)"))

classInt::classIntervals(occ_1880_normalized$perc_lf, n=10, style = "jenks")
## style: jenks
##   one of 110,524,147,514 possible partitions of this variable into 10 classes
##    [0,0.13] (0.13,0.36] (0.36,0.67] (0.67,1.12] (1.12,1.64] (1.64,2.64] 
##         161          54          23          12           9           2 
## (2.64,4.01] (4.01,5.39] (5.39,7.19] (7.19,9.39] 
##           2           1           1           1
plot2 +
     geom_vline(aes(xintercept = 161.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 215.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 238.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 250.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 259.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 261.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 263.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 264.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 265.5), color = "red",
            linetype = "dashed", size = 0.5)


Graph of All Occupations by Type
combined_1880 %>%
  filter(labforce == "Yes, in the labor force") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1880$labforce == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)")) %>%
  
  ggplot(aes(y = n, x = label, n)) +
  geom_col(fill = "#bc5090") + 
  coord_flip() + 
  geom_text(aes(label = text),
            hjust = 0,
            family = "Quicksand") + 
  scale_y_continuous(breaks = seq(0, 70000, 10000),
                     expand = expand_scale(mult = c(0,0.2))) +
  
  labs(x = "", y = "Count",
       title = "Graph of All Occupations by Type in 1880") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"


1910

Top Jobs
combined_1910 %>%
  filter(labor_force == "Yes, in the labor force" & 
           label != "Not yet classified") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1910$labor_force == "Yes, in the labor force") * 100,
                         digits = 2),
         perc_pop = round(n / NROW(combined_1910) * 100, 
                          digits = 2)) %>%
  arrange(desc(n)) %>%
  kable(col.names = c("Occupation",
                      "Count",
                      "Percentage of labour force",
                      "Percentage of population")) %>%
  kable_styling() %>%
  scroll_box(width = "100%", height = "300px")
Occupation Count Percentage of labour force Percentage of population
Operative and kindred workers (n.e.c.) 194803 10.69 4.91
Managers, officials, and proprietors (n.e.c.) 103049 5.66 2.60
Salesmen and sales clerks (n.e.c.) 100610 5.52 2.54
Private household workers (n.e.c.) 96602 5.30 2.44
Laborers (n.e.c.) 79582 4.37 2.01
Clerical and kindred workers (n.e.c.) 51887 2.85 1.31
Tailors and tailoresses 49130 2.70 1.24
Dressmakers and seamstresses, except factory 38128 2.09 0.96
Bookkeepers 30863 1.69 0.78
Carpenters 30238 1.66 0.76
Stenographers, typists, and secretaries 28895 1.59 0.73
Waiters and waitresses 21470 1.18 0.54
Painters, construction and maintenance 20375 1.12 0.51
Teachers (n.e.c.) 19669 1.08 0.50
Machinists 17521 0.96 0.44
Truck and tractor drivers 16676 0.92 0.42
Barbers, beauticians, and manicurists 15111 0.83 0.38
Porters 15098 0.83 0.38
Longshoremen and stevedores 14315 0.79 0.36
Plumbers and pipe fitters 14153 0.78 0.36
Janitors and sextons 13982 0.77 0.35
Laundresses, private household 13798 0.76 0.35
Compositors and typesetters 13079 0.72 0.33
Deliverymen and routemen 12432 0.68 0.31
Bakers 11699 0.64 0.29
Laundry and dry cleaning operatives 10939 0.60 0.28
Cooks, except private household 10729 0.59 0.27
Foremen (n.e.c.) 10558 0.58 0.27
Taxicab drivers and chauffers 10399 0.57 0.26
Meat cutters, except slaughter and packing house 10232 0.56 0.26
Bartenders 10070 0.55 0.25
Brickmasons, stonemasons, and tile setters 9881 0.54 0.25
Musicians and music teachers 9881 0.54 0.25
Electricians 9559 0.52 0.24
Milliners 8926 0.49 0.22
Real estate agents and brokers 8586 0.47 0.22
Lawyers and judges 8350 0.46 0.21
Messengers and office boys 8234 0.45 0.21
Shipping and receiving clerks 8048 0.44 0.20
Teamsters 7474 0.41 0.19
Stationary engineers 7464 0.41 0.19
Hucksters and peddlers 7439 0.41 0.19
Service workers, except private household (n.e.c.) 7396 0.41 0.19
Practical nurses 6902 0.38 0.17
Policemen and detectives 6845 0.38 0.17
Guards, watchmen, and doorkeepers 6741 0.37 0.17
Physicians and surgeons 6708 0.37 0.17
Actors and actresses 6354 0.35 0.16
Blacksmiths 5407 0.30 0.14
Shoemakers and repairers, except factory 5107 0.28 0.13
Farm laborers, wage workers 4970 0.27 0.13
Housekeepers, private household 4919 0.27 0.12
Telephone operators 4850 0.27 0.12
Boarding and lodging house keepers 4581 0.25 0.12
Motormen, street, subway, and elevated railway 4367 0.24 0.11
Craftsmen and kindred workers (n.e.c.) 4204 0.23 0.11
Charwomen and cleaners 4134 0.23 0.10
Insurance agents and brokers 4114 0.23 0.10
Bookbinders 4046 0.22 0.10
Tinsmiths, coppersmiths, and sheet metal workers 3951 0.22 0.10
Cashiers 3918 0.22 0.10
Plasterers 3630 0.20 0.09
Elevator operators 3557 0.20 0.09
Stationary firemen 3533 0.19 0.09
Painters, except construction or maintenance 3501 0.19 0.09
Conductors, bus and street railway 3209 0.18 0.08
Accountants and auditors 3140 0.17 0.08
Artists and art teachers 2921 0.16 0.07
Nurses, professional 2918 0.16 0.07
Jewelers, watchmakers, goldsmiths, and silversmiths 2769 0.15 0.07
Mail carriers 2630 0.14 0.07
Officers, pilots, pursers and engineers, ship 2589 0.14 0.07
Nurses, student professional 2572 0.14 0.06
Pharmacists 2554 0.14 0.06
Sailors and deck hands 2485 0.14 0.06
Mechanics and repairmen (n.e.c.) 2177 0.12 0.05
Collectors, bill and account 2170 0.12 0.05
Cabinetmakers 2168 0.12 0.05
Clergymen 2079 0.11 0.05
Editors and reporters 2076 0.11 0.05
Weavers, textile 2076 0.11 0.05
Structural metal workers 2059 0.11 0.05
Conductors, railroad 1994 0.11 0.05
Dentists 1973 0.11 0.05
Stone cutters and stone carvers 1941 0.11 0.05
Firemen, fire protection 1894 0.10 0.05
Molders, metal 1804 0.10 0.05
Designers 1780 0.10 0.04
Upholsterers 1758 0.10 0.04
Telegraph operators 1679 0.09 0.04
Housekeepers and stewards, except private household 1636 0.09 0.04
Pressmen and plate printers, printing 1601 0.09 0.04
Furriers 1524 0.08 0.04
Draftsmen 1496 0.08 0.04
Photographers 1473 0.08 0.04
Bootblacks 1312 0.07 0.03
Members of the armed services 1282 0.07 0.03
Architects 1240 0.07 0.03
Mine operatives and laborers 1212 0.07 0.03
Engineers, civil 1107 0.06 0.03
Boilermakers 1092 0.06 0.03
Funeral directors and embalmers 1030 0.06 0.03
Filers, grinders, and polishers, metal 1026 0.06 0.03
Attendants, hospital and other institution 927 0.05 0.02
Gardeners, except farm and groundskeepers 922 0.05 0.02
Chemists 862 0.05 0.02
Buyers and department heads, store 789 0.04 0.02
Farmers (owners and tenants) 786 0.04 0.02
Photoengravers and lithographers 766 0.04 0.02
Inspectors (n.e.c.) 706 0.04 0.02
Brakemen, railroad 694 0.04 0.02
Paperhangers 677 0.04 0.02
Locomotive engineers 612 0.03 0.02
Ticket, station, and express agents 599 0.03 0.02
Librarians 550 0.03 0.01
Roofers and slaters 533 0.03 0.01
Mechanics and repairmen, automobile 513 0.03 0.01
Linemen and servicemen, telegraph, telephone, and power 504 0.03 0.01
Advertising agents and salesmen 494 0.03 0.01
Lumbermen, raftsmen, and woodchoppers 479 0.03 0.01
Tool makers, and die makers and setters 448 0.02 0.01
Oilers and greaser, except auto 432 0.02 0.01
Subject not specified 430 0.02 0.01
Religious workers 428 0.02 0.01
Apprentices, building trades (n.e.c.) 408 0.02 0.01
Pattern and model makers, except paper 405 0.02 0.01
Sawyers 399 0.02 0.01
Telegraph messengers 380 0.02 0.01
Apprentices, other specified trades 372 0.02 0.01
Farm laborers, unpaid family workers 368 0.02 0.01
Fishermen and oystermen 367 0.02 0.01
Spinners, textile 356 0.02 0.01
Apprentices, printing trades 343 0.02 0.01
Managers and superintendents, building 326 0.02 0.01
Midwives 320 0.02 0.01
Engineers, mechanical 315 0.02 0.01
Officials and administrators (n.e.c.), public administration 314 0.02 0.01
Garage laborers and car washers and greasers 311 0.02 0.01
Apprentices, metalworking trades (n.e.c.) 302 0.02 0.01
Authors 292 0.02 0.01
Locomotive firemen 271 0.01 0.01
Ushers, recreation and amusement 268 0.01 0.01
Bank tellers 260 0.01 0.01
Inspectors, public administration 244 0.01 0.01
Attendants, professional and personal service (n.e.c.) 238 0.01 0.01
Buyers and shippers, farm products 223 0.01 0.01
Excavating, grading, and road machinery operators 220 0.01 0.01
Switchmen, railroad 216 0.01 0.01
Engravers, except photoengravers 199 0.01 0.01
Newsboys 192 0.01 0.00
Opticians and lens grinders and polishers 181 0.01 0.00
Professional, technical and kindred workers (n.e.c.) 181 0.01 0.00
Motion picture projectionists 180 0.01 0.00
Piano and organ tuners and repairmen 174 0.01 0.00
Millwrights 146 0.01 0.00
Engineers, electrical 141 0.01 0.00
Apprentice electricians 131 0.01 0.00
Apprentice machinists and toolmakers 120 0.01 0.00
Engineers, mining 119 0.01 0.00
Boatmen, canalmen, and lock keepers 116 0.01 0.00
Demonstrators 116 0.01 0.00
Dyers 115 0.01 0.00
Apprentices, trade not specified 102 0.01 0.00
Bus drivers 102 0.01 0.00
Floormen and floor managers, store 96 0.01 0.00
Inspectors, scalers, and graders, log and lumber 93 0.01 0.00
Watchmen (crossing) and bridge tenders 92 0.01 0.00
Engineers (n.e.c.) 91 0.00 0.00
Electrotypers and stereotypers 87 0.00 0.00
Mechanics and repairmen, railroad and car shop 85 0.00 0.00
Recreation and group workers 77 0.00 0.00
Motormen, mine, factory, logging camp, etc. 72 0.00 0.00
Therapists and healers (n.e.c.) 71 0.00 0.00
Surveyors 67 0.00 0.00
Stock and bond salesmen 63 0.00 0.00
Apprentice carpenters 62 0.00 0.00
Veterinarians 59 0.00 0.00
Millers, grain, flour, feed, etc. 55 0.00 0.00
Athletes 53 0.00 0.00
Entertainers (n.e.c.) 53 0.00 0.00
Express messengers and railway mail clerks 53 0.00 0.00
Auctioneers 51 0.00 0.00
Attendants, recreation and amusement 46 0.00 0.00
Attendants, physician’s and dentist’s office 45 0.00 0.00
Farm managers 45 0.00 0.00
Sports instructors and officials 43 0.00 0.00
Decorators and window dressers 35 0.00 0.00
Apprentice bricklayers and masons 33 0.00 0.00
Baggagemen, transportation 32 0.00 0.00
Power station operators 30 0.00 0.00
Dancers and dancing teachers 26 0.00 0.00
College presidents and deans 25 0.00 0.00
Officials, lodge, society, union, etc. 22 0.00 0.00
Apprentice auto mechanics 21 0.00 0.00
Marshals and constables 19 0.00 0.00
Farm foremen 16 0.00 0.00
Agents (n.e.c.) 14 0.00 0.00
Mechanics and repairmen, office machine 12 0.00 0.00
Osteopaths 12 0.00 0.00
Counter and fountain workers 11 0.00 0.00
Optometrists 11 0.00 0.00
Postmasters 9 0.00 0.00
Cement and concrete finishers 6 0.00 0.00
Attendants and assistants, library 5 0.00 0.00
Loom fixers 5 0.00 0.00
Blasters and powdermen 4 0.00 0.00
Furnacemen, smeltermen and pourers 4 0.00 0.00
Sheriffs and bailiffs 4 0.00 0.00
Biological scientists 2 0.00 0.00
Heaters, metal 2 0.00 0.00
  • Domestic servants appear to be the most popular occupation, followed by Clerks in Stores and Sailors.


Graph of Top 10 Occupations
combined_1910 %>%
  filter(labor_force == "Yes, in the labor force" & 
           label != "Not yet classified") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1910$labor_force == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)")) %>%
  top_n(10, wt = n) %>%
  
  ggplot(aes(y = n, x = reorder(label, n))) +
  geom_col(fill = "#003f5c") + 
  coord_flip() + 
  geom_text(aes(label = text),
            hjust = 0,
            family = "Quicksand") + 
  scale_y_continuous(breaks = seq(0, 200000, 20000),
                     expand = expand_scale(mult = c(0,0.25))) +
  
  labs(x = "Occupation (Percentage of labour force)", y = "Count",
       title = "Graph of the Top 10 Most Popular Occupations in 1910") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"


Graph of Bottom 10 Occupations
combined_1910 %>%
  filter(labor_force == "Yes, in the labor force" & 
           label != "Not yet classified") %>%
  count(label) %>%
  top_n(-10, wt = n) %>%
  
  ggplot(aes(y = n, x = reorder(label, n))) +
  geom_col(fill = "#003f5c") + 
  coord_flip() + 
  geom_text(aes(label = n),
            hjust = 0,
            family = "Quicksand") + 
  scale_y_continuous(breaks = seq(0, 11, 1),
                     expand = expand_scale(mult = c(0,0.1))) +
  
  labs(x = "", y = "Count",
       title = "Graph of the Top 10 Least Popular Occupations in 1910") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

  • Percentages are not included as the values are too small


Graph of All Occupations by Count
combined_1910 %>%
  filter(labor_force == "Yes, in the labor force" & 
           label != "Not yet classified") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1910$labor_force == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)")) %>%
  
  ggplot(aes(y = n, x = reorder(label, n))) +
  geom_col(fill = "#003f5c") + 
  coord_flip() + 
  geom_text(aes(label = text),
            hjust = 0,
            family = "Arial") + 
  scale_y_continuous(breaks = seq(0, 200000, 20000),
                     expand = expand_scale(mult = c(0,0.25))) +
  
  labs(x = "", y = "Count",
       title = "Graph of All Occupations by Count in 1910") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))


Graph of All Occupations by Count (Breaks)
plot3 <- combined_1910 %>%
  filter(labor_force == "Yes, in the labor force" & 
           label != "Not yet classified") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1910$labor_force == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)")) %>%
  
  ggplot(aes(y = n, x = reorder(label, n))) +
  geom_col(fill = "#003f5c") + 
  coord_flip() + 
  geom_text(aes(label = text),
            hjust = 0,
            family = "Arial") + 
  scale_y_continuous(breaks = seq(0, 200000, 20000),
                     expand = expand_scale(mult = c(0,0.25))) +
  
  labs(x = "", y = "Count",
       title = "Graph of All Occupations by Count in 1910") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))

occ_1910_normalized <- combined_1910 %>%
  filter(labor_force == "Yes, in the labor force" & 
           label != "Not yet classified") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1910$labor_force == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)"))

classInt::classIntervals(occ_1910_normalized$perc_lf, 10, style = "jenks")
## style: jenks
##   one of 42,757,703,560 possible partitions of this variable into 10 classes
##     [0,0.09]   (0.09,0.3]    (0.3,0.6]   (0.6,0.83]  (0.83,1.18]  (1.18,2.09] 
##          121           41           23            9            5            4 
##  (2.09,2.85]  (2.85,4.37]  (4.37,5.66] (5.66,10.69] 
##            2            1            3            1
plot3 +
    geom_vline(aes(xintercept = 121.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 162.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 185.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 194.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 199.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 203.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 205.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 206.5), color = "red",
            linetype = "dashed", size = 0.5) + 
      geom_vline(aes(xintercept = 209.5), color = "red",
            linetype = "dashed", size = 0.5)


Graph of All Occupations by Type
combined_1910 %>%
  filter(labor_force == "Yes, in the labor force" & 
           label != "Not yet classified") %>%
  count(label) %>%
  mutate(perc_lf = round(n / sum(combined_1910$labor_force == "Yes, in the labor force") * 100,
                         digits = 2),
         text = paste0(n," (", perc_lf, "%)")) %>%
  
  ggplot(aes(y = n, x = label, n)) +
  geom_col(fill = "#003f5c") + 
  coord_flip() + 
  geom_text(aes(label = text),
            hjust = 0,
            family = "Quicksand") + 
  scale_y_continuous(breaks = seq(0, 200000, 20000),
                     expand = expand_scale(mult = c(0,0.25))) +
  
  labs(x = "", y = "Count",
       title = "Graph of All Occupations by Type in 1910") +
  theme(panel.grid.major.y = element_blank(),
        legend.text = element_text(colour = "black"))
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, : no
## font could be found for family "Quicksand"